home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD59615212000.psc / Mixed API Demo / modDisableCtrlAltDel.bas < prev    next >
Encoding:
BASIC Source File  |  2000-05-19  |  840 b   |  31 lines
  1. Attribute VB_Name = "modDisableCtrlAltDel"
  2. Option Explicit
  3.  
  4. '//DisableCtrlAltDel/EnableCtrlAltDel API Declaration
  5. Public Declare Function SystemParametersInfo Lib "user32" _
  6. Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal _
  7. uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As _
  8. Long) As Long
  9.  
  10. '//DisableCtrlAltDel/EnableCtrlAltDel Constant
  11. Public Const SPI_SCREENSAVERRUNNING = 97
  12.  
  13.  
  14. '//DisableCtrlAltDel Function
  15. Public Function DisableCtrlAltDel()
  16. Dim dRet As Integer
  17. Dim dOld As Boolean
  18.     dRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
  19.             True, dOld, 0)
  20. End Function
  21.  
  22. '//EnableCtrlAltDel Function
  23. Public Function EnableCtrlAltDel()
  24. Dim eRet As Integer
  25. Dim eOld As Boolean
  26.     eRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
  27.             False, eOld, 0)
  28. End Function
  29.  
  30.  
  31.